home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / miscellaneous / patch / patch2amitcp_4.3 / bin / patchfiles < prev    next >
Encoding:
Text File  |  1996-09-07  |  475 b   |  27 lines
  1. /*
  2.  * Created: Sun Jul  2 15:48:24 1995 too
  3.  * Last Modified: Mon Jul  3 14:37:46 1995 too
  4.  */
  5. Address 'COMMAND'
  6. Parse Arg SUM' 'PFILE
  7.  
  8. if ~Open(pf, PFILE, 'R') Then
  9.     Do; Say '*** Cannot open file' PFILE; Exit 10; End
  10.  
  11. do until EOF(pf)
  12.     line = ReadLn(pf)
  13.     If left(line, 32) = SUM Then Do
  14.         If EOF(pf) Then 
  15.             Say 'PATCHED'
  16.         Else Do
  17.             Say DelStr(line, 1, 33)
  18.             do until EOF(pf)
  19.                 line = ReadLn(pf)
  20.                 Say DelStr(line, 1, 33)
  21.             End
  22.         End
  23.     Exit 0
  24.     End
  25. End
  26. Say 'NOMATCH'
  27.